home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 April / PCWorld_2005-04_cd.bin / software / komercni / pcmzdy / PC_MZDY-demoverze.exe / {app} / Mzdy / PARAM.TXT < prev    next >
Text File  |  2001-01-15  |  3KB  |  96 lines
  1. {* Soubor pro parametry programu - p²i zm╪n╪ deklarace - smazat}
  2.                            {spoleƒn∞ pro vτechny zákazníky}
  3. PGS:F,2.0;   {pagesize}
  4. PGL:F,2.0;   {pagelimit}
  5. PP:N,1;      {typ prevodniho prikazu - 1-PSZ,2-VZP,3-Dan,4-SVP(R-PP)}
  6. CPI:B;       {pro 12 cpi musi byt A}
  7. RT:B;        {A-no tisk bez ramecku}
  8. TI:F,2.0;    {poƒet kopií}
  9. PO:F,2.0;    {lev∞ okraj}
  10. Cond:B;      {Zhusteny tisk}
  11. HE:A,80;     {hlaviƒka}
  12. FO:A,80;     {patiƒka}
  13. Del:F,5.0;   {zpoºd╪ní}
  14.  
  15. Vet:F,3.0;   {pocet ²adek na HPP}
  16. DM630:F,7.0; {Vymerovaci zaklady a odvedeny pojistne}
  17. DM631:F,7.0;
  18. DM632:F,7.0;
  19. NepV:F,7.0;  {nepravidelná vypomoc}
  20.  
  21. DM:N,3;      {DM pro p²enos}
  22. CPR:N,5;     {Cpr pro vypocet - kdyº 0 tak vτechny, jinak jen jeden}
  23.              {pro hledani}
  24. Uzivatel:A,25; {prave aktualni uzivatel}
  25. Zmena:B;       {zda edupdated souboru}
  26.  
  27. VZP1:F,2.2;   { % VZP zamestnance}
  28. VZP2:F,2.2;   { % VZP zam╪stnavatele}
  29.  
  30. PSZ1:F,2.2;   { % PSZ zamestnance}
  31. PSZ2:F,2.2;   { % PSZ zamestnavatele}
  32.  
  33. minmzda:F,4.0; {minimalni mzda}
  34. minHPP:F,2.2;  {min.pràm╪r pro prac,p.úƒely}
  35. MaxND:F,3.0;   {hranice NDmin}
  36. SVP:F,3.0;     {hranice NDmax}
  37.  
  38. nezdmin:F,4.0; {nezdanitelné minimum}
  39. vyzd:F,4.0;    {odpocet na vyz.dite}
  40. maxd:F,1.0;    {max.pocet zapoctenych deti}
  41. Doprava:F,3.0; {prispevek na dopravu}
  42. vyzm:F,5.0;    {odpocet na vyz.manzelku}
  43. Cinv:F,4.0;    {odpocet na castecneho invalidu}
  44. PInv:F,4.0;    {odpocet na plnou invaliditu}
  45. ZTP:F,4.0;     {odpocet na ZTP}
  46.  
  47.           {nemocenské dávky}
  48. dny3:F,2.0;    {% první t²i dny nemoci}
  49. dnyD:F,2.0;    {% dalτí dny nemoci}
  50. OCR:F,2.0;     {% OCR}
  51. MatD:F,2.0;    {% placená mat.dovolená}
  52. PracU:F,2.0;   {% prac.úrazy}
  53. OCRD1:F,2.0;   {placene dny OCR}
  54. OCRD2:F,2.0;   {placene dny OCR u osamelych}
  55.           {mezní hodnoty}
  56. DnyMP:F,1.0;    {dny pro ZP a SZ}
  57. KcsMP:F,3.0;    {Kcs pro ZP a SZ}
  58. DnyMD:F,1.0;    {dny pro dohody}
  59. DuchMP:F,4.0;   {proc.duch pro ZP}
  60. NV:A,30;       {DM pro nepl.volno}
  61.           {p²ídavky}
  62. V1:F,5.0;P1:F,3.0;   {V1-odpoƒet pro duchodce, P1-kontrola p²ekroƒení fondu pr.doby}
  63. V2:F,2.0;P2:F,3.0;   {V2-daσ zvl.sazbou, P2 maximum OH}
  64. V3:F,4.0;P3:F,3.0;   {V3 rok daσ skupiny}
  65. P4:F,3.0;            {procento z rozdílu NDmax a NDmin}
  66. ZvlKc:F,5.0;         {zvlastní sazba dan╪ - mezni hodnota}
  67. ZvlProc:F,2.0;       {zvlastni sazba dan╪ - procento}
  68. Tarify :B;           {menit tabulu plat.tarifà}
  69.  
  70. MesSazby:A,75;
  71.  
  72.           {ostatni}
  73. Prom:B;        {log.prom -P.Sest,Dokab- prehozeni vpoctu}
  74. G:A,1;         {volání DM jen Globální G , else: cokoliv}
  75. Znak:A,1;      {zadaná ²ádka v Dokab A,B,C,D}
  76. Vyp:B;         {hromadny-N, po prac. A}
  77.  
  78. #K @@;
  79.  
  80. #C
  81.               {první ²adek monitoru}
  82.  
  83. Texth0:='┌─────────────────────────┬──────────────────────────┬─────────────────────────┐':A,80;
  84. Texth1:=copy(Texth0,1,59)+'  ƒíslo v╪ty ____  ─┐':A,22;
  85.  
  86. Tisk:=CPI | RT | Cond | TI > 0 | PO > 0 | length(trailchar(' ',HE)) > 0 |
  87.       length(trailchar(' ',FO)) > 0 :B;
  88. Den:=valdate('01.'+Mzglo.mm+'.'+Mzglo.stol,'DD.MM.YYYY'):D;
  89. den1:=addmonth(valdate('01.'+Mzglo.mm+'.'+Mzglo.stol,'DD.MM.YYYY'),1)-1:D;
  90. RDan:=leadchar(' ',str(V3,4,0),'0'):N,4;
  91. MaxND99:=MaxND+int((SVP-MaxND)*P4/100)+cond(frac((SVP-MaxND)*P4/100) > 0 :1):F,3.0;
  92. DatVyst:=copy(MesSazby,1,10):A,10;
  93. DatSpl:=copy(MesSazby,12,10):A,10;
  94.  
  95. #L PGS >= PGL & PGL > 0 :'Parametr PGS  >= PGL a souƒasn╪ PGL > 0, opravte';
  96.    Del >= 100 :'Zpoºd╪ní musí b∞t minimáln╪ 100';